Var
 x,y,a,b,bagx,bagy,e,f,trybag,wt,wt2,tme,nats,starttime,fat,check,speed,d,msglength,fc:integer;
 search,bag,walk:integer;
 chat,username,password,nMin,nHour,sendername,sendermsg,oldsendermsg,msg:string;
 foundchest,foundbag,killswitch:boolean;
 Hour,Min,sec,Msec:Word;

{>--------------Aut0Nats-------------<}
{>         Written by Reines         <}
{>-------Features/Instructions-------<}
{> - Start facing the chest          <}
{> - Mod detection                   <}
{> - Relogin                         <}
{> - Sleeping                        <}
{> - Lower the value of speed the    <}
{>   the faster it searches          <}
{> - Doesn't run well on slow pc's   <}
{> SET SETTINGS BELOW BEFORE RUNNING <}
{>-----------------------------------<}

Procedure settings;
Begin
speed:=100;
End;

Procedure pictures;
Begin
search:=BitmapFromString(128,11,
      '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000FFFFFFFFFFFF' +
      '000000000000000000000000000000000000000000000000000000' +
      'FFFFFFFFFFFFFFFFFF000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000FFFFFF000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '00000000000000000000000000000000000000000000000000FFFF' +
      '00FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '00FFFF000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
      '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000FFFFFFFFFFFF000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '00FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '00000000FFFF00FFFF000000FFFFFFFFFFFF000000000000000000' +
      '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
      '000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
      '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
      '000000000000000000FFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
      '000000000000000000000000FFFFFFFFFFFFFFFFFF000000FFFFFF' +
      'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
      '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
      '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000' +
      '00000000FFFF00FFFF000000000000000000000000000000000000' +
      '00FFFF00FFFF00000000FFFF00FFFF00000000000000000000FFFF' +
      '00FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF' +
      '00FFFF00000000000000FFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFF' +
      'FFFFFF000000000000000000000000FFFFFFFFFFFF000000000000' +
      'FFFFFFFFFFFF000000FFFFFF000000000000000000FFFFFFFFFFFF' +
      '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
      '000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFF' +
      'FFFFFF000000000000000000000000FFFFFFFFFFFF000000000000' +
      'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
      '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
      '000000FFFFFFFFFFFF000000000000000000FFFFFF000000000000' +
      '000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
      '00000000000000000000FFFF00FFFF000000000000000000000000' +
      '00000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF000000' +
      '00FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF' +
      '00000000000000FFFF00FFFF00000000FFFF00FFFF000000000000' +
      'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
      '000000000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
      'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFF' +
      'FFFFFF000000000000000000000000000000FFFFFFFFFFFF000000' +
      '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
      '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
      'FFFFFFFFFFFF000000000000000000000000000000000000FFFFFF' +
      'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
      '000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
      '000000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000000000' +
      '00000000000000000000000000000000FFFF00FFFF000000000000' +
      '00000000000000000000000000FFFF00FFFF00000000000000FFFF' +
      '00FFFF00000000FFFF00FFFF00000000000000FFFF00FFFF000000' +
      '00FFFF00FFFF00FFFF00000000000000000000000000FFFF00FFFF' +
      '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
      'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
      '000000FFFFFFFFFFFF000000000000000000000000000000FFFFFF' +
      'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
      'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
      '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
      '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFF' +
      'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
      'FFFFFFFFFFFF00000000000000000000000000000000FFFF00FFFF' +
      '00000000000000000000000000000000000000FFFF00FFFF000000' +
      '00000000FFFF00FFFF00000000FFFF00FFFF00FFFF00FFFF00FFFF' +
      '00FFFF00000000000000FFFF00FFFF00FFFF00FFFF000000000000' +
      '00FFFF00FFFF000000000000000000000000000000000000FFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000000000000000000000000000' +
      'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
      '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
      '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
      '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
      '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
      '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
      '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
      '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
      '000000000000FFFFFFFFFFFFFFFFFF000000000000000000000000' +
      '00FFFF00FFFF00000000000000000000000000000000000000FFFF' +
      '00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF000000' +
      '00000000000000000000000000000000000000000000FFFF00FFFF' +
      '00FFFF00000000FFFF00FFFF000000FFFFFFFFFFFF000000000000' +
      '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
      'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
      'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
      '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
      '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
      'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
      'FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
      '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
      '00000000000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
      '00000000FFFF00FFFF00000000000000FFFF00FFFF00000000FFFF' +
      '00FFFF00000000000000FFFF00FFFF00000000FFFF00FFFF000000' +
      '00000000FFFF00FFFF00000000FFFF00FFFF000000000000FFFFFF' +
      'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
      'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
      'FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
      'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
      '000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFF' +
      'FFFFFF000000000000000000000000000000000000000000FFFFFF' +
      'FFFFFF000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
      'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFF' +
      'FFFFFF000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
      '00000000000000000000000000000000000000FFFF00FFFF00FFFF' +
      '00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
      '00000000000000FFFF00FFFF00FFFF00FFFF000000000000000000' +
      '00FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000FFFFFFFFFFFF' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000000000000000000000000000000000' +
      '000000000000000000000000');
bag:=BitmapFromString(18,7,
    '9D6E3D9D6E3D9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
    '7B542E52452E52452E52452E52452E52452E52452E52452E360E06' +
    '9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E7B542E7B542E' +
    '7B542E7B542E52452E52452E52452E52452E52452E52452E52452E' +
    '9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E7B542E7B542E7B542E' +
    '7B542E7B542E7B542E52452E7B542E52452E52452E52452E615D61' +
    '9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E7B542E' +
    '7B542E7B542E7B542E52452E7B542E52452E52452E8D8D8D868457' +
    '7B542E9D6E3D9D6E3D9D6E3D7B542E9D6E3D7B542E7B542E7B542E' +
    '7B542E7B542E7B542E7B542E7B542E7B542E52452E988CB1988CB1' +
    '7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3DC344227B542E' +
    '7B542E7B542E7B542E7B542E7B542E7B542E988CB1988CB1988CB1' +
    '7B542E7B542E7B542E9D6E3D9D6E3D9D6E3D9D6E3D9D6E3D7B542E' +
    '7B542E7B542E7B542E7B542E7B542E7B542E988CB1CFAB7BCFAB7B' +
    '');
walk:=BitmapFromString(57,9,
     'FFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000000000' +
     '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
     '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
     '000000000000000000000000000000000000000000000000000000' +
     '000000000000000000000000000000000000000000000000000000' +
     '000000000000000000FFFFFF000000000000000000FFFFFFFFFFFF' +
     'FFFFFF000000000000000000FFFFFFFFFFFF000000000000000000' +
     '000000000000000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000000000000000000000000000000000000000000000FFFFFF' +
     'FFFFFF000000000000000000000000000000000000000000000000' +
     '000000000000000000000000000000000000000000000000000000' +
     '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
     'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
     '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
     '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
     '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
     'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
     'FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
     'FFFFFFFFFFFF000000FFFFFF000000000000000000FFFFFFFFFFFF' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000000000000000000000000000FFFFFFFFFFFFFFFFFF000000' +
     'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
     '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
     'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000FFFFFF' +
     'FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     'FFFFFFFFFFFF000000000000000000000000000000000000FFFFFF' +
     'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
     'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
     'FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
     '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
     'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
     '000000FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
     'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
     'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000000000' +
     '000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000' +
     '000000000000000000000000FFFFFFFFFFFFFFFFFF000000000000' +
     '000000FFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
     'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000' +
     'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
     'FFFFFF000000000000000000FFFFFFFFFFFFFFFFFF000000000000' +
     '000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF' +
     '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
     '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
     '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
     '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
     '');
End;

Procedure gettime;
Begin
 DecodeTime(Now,Hour,Min,Sec,MSec);
 nMin:=inttostr(Min);
 nHour:=inttostr(Hour);
 If(Min<10)Then nMin:='0'+inttostr(Min);
 If(Hour<10)Then nHour:='0'+inttostr(Hour);
End;

Procedure logout;
Begin
 Status('Logging out');
 killswitch:=(false);
 Repeat
 MoveMouse(325+Random(5),20+Random(5));
 Wait(100);
 ClickMouse(350,280,True);
 Wait(1000);
 Until(GetColor(338,125)=5524540);
End;

Procedure login;
Begin
 ClickMouse(357+random(5),281+random(5),True);
 Wait(200+random(50));
 ClickMouse(255+random(5),287+random(5),True);
 Wait(200+random(50));
 Status('Attempting login');
 ClickMouse(166+random(5),263+random(5),True);
 Wait(500+random(50));
 SendKeysSilent(username);
 Wait(500+random(50));
 ClickMouse(260+random(5),303+random(5),True);
 Wait(500+random(50));
 SendKeysSilent(password);
 Wait(500+random(50));
 ClickMouse(392+random(5),248+random(5),True);
 tme:=0;
 Repeat
 Wait(1000);
 tme:=tme+1000;
 Until(tme>10000)Or(GetColor(56,117)=16777215);
 If(GetColor(56,117)=16777215)And(GetColor(455,216)=16777215)Then
 Begin
   Status('Closing Welcome Box');
   ClickMouse(220+random(5),230+random(5),True);
   Wait(1000+random(250));
 End;
 If(GetColor(95,133)=65535)And(GetColor(325,159)=16777215)Then
 Begin
   Status('Closing Non-Member Server Box');
   ClickMouse(262+random(5),202+random(2),True)
   Wait(1000+random(250));
 End;
End;

Procedure findbag;
Begin
 MoveMouse(492,14);
 Wait(200);
 trybag:=0;
 Repeat
 IF(FindBitmap(bag,bagx,bagy))Then foundbag:=(true);
 trybag:=trybag+1;
 Wait(100);
 Until(foundbag)or(trybag>20);
 If(foundbag)Then Writeln('Sleeping Bag Found');
 If(trybag>=20)Then Writeln('No Sleeping Bag Found, Go get one fuckwit!');
 Writeln('<---------------------------->');
 MoveMouse(25,25);
End;

Procedure sleep;
Begin
 wt:=0;
 fat:=0;
 Wait(1000);
 Movemouse(498,16);
 Wait(1000);
 Movemouse(bagx+2,bagy+2);
 Wait(1000);
 If(IsTextAt(6,2,'Sleeping Bag: sleep'))Then
 Begin
   Status('Sleeping');
   ClickMouse(bagx,bagy,True);
   Repeat
   Wait(1000);
   wt:=wt+1000;
   Until(wt>=60000)Or(Getcolor(166,44)<>65535)Or(Getcolor(266,133)<>16777215);
   If(wt>=60000)And(Getcolor(166,44)=65535)Then
   Begin
     Repeat
     ClickMouse(198,302,True);
     wt2:=0;
     Repeat
     Wait(1000);
     wt2:=wt2+1000;
     Wait(1000);
     Until(wt2>=40000)Or(Getcolor(166,44)<>65535);
     Until(Getcolor(166,44)<>65535);
   End;
   Wait(1000);
 End;
 MoveMouse(25,25);
End;

Procedure move;
Begin
 Starttime:=getsystemtime;
 ClickMouse(260,190,False);
 wait(500);
 Findbitmap(walk,e,f);
 wait(500);
 ClickMouse(e+2,f+2,True);
 wait(2000);
End;

Procedure startup;
Begin
 gettime;
 Writeln('<----------Aut0Nats---------->');
 Writeln('Written by Reines');
 Writeln('Starting at '+nHour+':'+nMin);
 Status('A');Wait(100);
 Status('Au');Wait(100);
 Status('Aut');Wait(100);
 Status('Aut0');Wait(100);
 Status('Aut0N');Wait(100);
 Status('Aut0Na');Wait(100);
 Status('Aut0Nat');Wait(100);
 Status('Aut0Nats');Wait(100);
 Status('Aut0Nats ');Wait(100);
 Status('Aut0Nats B');Wait(100);
 Status('Aut0Nats By');Wait(100);
 Status('Aut0Nats By ');Wait(100);
 Status('Aut0Nats By R');Wait(100);
 Status('Aut0Nats By Re');Wait(100);
 Status('Aut0Nats By Rei');Wait(100);
 Status('Aut0Nats By Rein');Wait(100);
 Status('Aut0Nats By Reine');Wait(100);
 Status('Aut0Nats By Reines');Wait(500);
End;

Procedure checkstats;
Begin
 Repeat
 check:=0;
 Status('Checking Stats');
 MoveMouse(427,16);
 Wait(100);
 fat:=strtoint(GetTextAt(365,189));
 Until(fat<>-1);
 MoveMouse(25,25);
End;

Procedure getchat;
Begin
 chat:=getchatmsg;
 msglength:=length(chat);
 d:=pos(':',chat);
 sendername:=copy(chat,1,d-1);
 msg:=copy(chat,d,msglength);
 sendermsg:=sendername+msg;
 If(sendername<>'')and(sendermsg<>oldsendermsg)then
 begin
   gettime;
   Writeln(nHour+':'+nMin+'    '+sendermsg);
   oldsendermsg:=sendermsg;
 end;
 If(copy(chat,1,4)='Mod ')Or(copy(chat,1,d-1)='Paul')Or(copy(chat,1,d-1)='Andrew')Then logout;
End;

Begin
 settings;
 username:=Readln('Enter your Username:');
 password:=Readln('Enter your Password:');
 speed:=speed+random(50);
 pictures;
 startup;
 findbag;
 killswitch:=(true);
 FindColor(x,y,48876,160,90,300,160);
 starttime:=getsystemtime;
 Repeat
 FixMouse(x,y,0);
 If(check>=10)Then checkstats;
 If(fat>=85)Then sleep;
 If((getsystemtime-starttime)>=140000)Then move;
 If(getchatmsg='You have been standing here for 5mins! Please move to a new area')Then move;
 If(getchatmsg='You are too tired to theive here')Then sleep;
 If(getchatmsg='Nothing interesting happens')Then Wait(8000);
 foundchest:=(false);
 If(GetColor(338,125)=5524540)Then login;
 Wait(100);
 getchat;
 if(getchatmsg='You find a trap on the chest')or(chat='You disable the trap')Or(chat='You open the chest')Then
 Begin
   fc:=0;
   nats:=nats+1;
   check:=check+1;
   Status(inttostr(nats)+' natures');
   Repeat
   Wait(100);
   getchat;
   fc:=fc+100;
   Until(fc>=10000);
 End;
 MoveMouse(x,y);
 Wait(100);
 If(istextat(6,2,'Chest:'))Then foundchest:=(true);
 If(foundchest)Then
 Begin
   Status(inttostr(nats)+' natures');
   ClickMouse(x,y,false);
   Wait(100);
   If(findbitmap(search,a,B))Then clickmouse(a+2,b+2,True);
   Wait(speed);
   MoveMouse(25,25);
 End;
 If(not foundchest)Then
 Begin
   FindColor(x,y,48876,160,90,300,160);
   Wait(speed);
 End;
 Until(not killswitch);
End.